home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00301_•.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  1.4 KB  |  51 lines
  1. global gVRSprite1, gVRSprite2, gPanoMovieID, gPanoMovieObj, gReturning, gVR.PanoFilename, gVR.CurrentNodeID, gVR.CurrentHotSpotID
  2.  
  3. on exitFrame
  4.   CloseNavMovie()
  5.   ClosePanoMovie()
  6.   set the ink of sprite gVRSprite1 to 0
  7.   set the ink of sprite gVRSprite2 to 0
  8.   updateStage()
  9.   set the ink of sprite gVRSprite1 to 1
  10.   set the ink of sprite gVRSprite2 to 1
  11.   updateStage()
  12.   if the machineType = 256 then
  13.     StartMovieVR256a()
  14.     OpenPanoMovie(gVR.PanoFilename, gVRSprite1, 0)
  15.   else
  16.     if gReturning = 1 then
  17.       OpenPanoMovie(gVR.PanoFilename, gVRSprite1, 0)
  18.     else
  19.       OpenPanoMovie(gVR.PanoFilename, gVRSprite1, 1)
  20.     end if
  21.   end if
  22.   cursor(200)
  23.   cursor(-1)
  24.   if the machineType = 256 then
  25.     if objectp(gPanoMovieObj) then
  26.       go(the frame + 1)
  27.       set gVR.CurrentNodeID to string(gPanoMovieObj(mGetNodeID))
  28.       set gVR.CurrentHotSpotID to "0"
  29.       if gReturning = 1 then
  30.         lookBeforeYouLeap()
  31.       else
  32.         jumpIntroWindows()
  33.       end if
  34.       exit
  35.     end if
  36.   else
  37.     if gPanoMovieID <> EMPTY then
  38.       go(the frame + 1)
  39.       set gVR.CurrentNodeID to string(PanoMovie("Direct", gPanoMovieID, "Get", "nodeID"))
  40.       set gVR.CurrentHotSpotID to "0"
  41.       if gReturning = 1 then
  42.         lookBeforeYouLeap()
  43.       end if
  44.       exit
  45.     end if
  46.   end if
  47.   go("Start")
  48.   updateStage()
  49.   alert("Can't open file:" & RETURN & RETURN & QUOTE & gVR.PanoFilename & QUOTE & RETURN & RETURN & "as a panoramic movie.")
  50. end
  51.